#!/usr/bin/perl
#
#
while($line=<STDIN>) {
	chomp($line);
	@words = split(/\s+/,$line);
	$sentence = "";
	foreach $word (@words) {
		@f = split(/\+/,$word);
		$sentence.=$f[0]." ";
	}
	$sentence=~s/\s*$//g;
	print $sentence."\n";
}
